Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình
Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT
giúp em với ạ . em cảm ơn nhiều...
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT'
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
Viết phương trình:
a, Nhập vào từ bàn phím 2 xâu a, b chứa các chữ thường và thông báo ra màn hình tổng độ dài của 2 xâu
b, Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình.
uses crt;
var a,b,c:string;
i,d1,d2:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
write('Nhap xau b:'); readln(b);
d1:=length(a);
d2:=length(b);
writeln('Tong do dai hai xau la: ',d1+d2);
c:=#32;
for i:=1 to d1 do
if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];
for i:=1 to d2 do
if b[i] in ['0'..'9'] then c:=c+b[i];
writeln('Xau c la: ',c);
readln;
end.
Viết chương trình nhập vào một xâu S có độ dài không quá 100 ký tự từ bàn phím. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình. Xuất xâu đã nhập
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
Viết chương trình: A. Nhập vào từ bàn phím 2 xâu a, b ( chứa các chữ thường ) và thông báo ra màn hình tổng độ dài của 2 xâu B. Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình
Các anh chị giải giúp em với ạ
uses crt;
var a,b,c:string;
i,d1,d2:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
write('Nhap xau b:'); readln(b);
d1:=length(a);
d2:=length(b);
writeln('Tong do dai hai xau la: ',d1+d2);
c:=#32;
for i:=1 to d1 do
if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];
for i:=1 to d2 do
if b[i] in ['0'..'9'] then c:=c+b[i];
writeln('Xau c la: ',c);
readln;
end.
Viết chương trình nhập từ bàn phím xâu kí tự S ( tối đa 100 ký tự ). Hãy tạo và xuất ra màn hình xâu S tổng là chữ in hoa. Ví dụ S='tran van kiet' xuất ra S='TRAN VAN KIẾT.
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.
Viết chường trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình số chữ số xuất hiện trong xâu đó
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
# Nhập chuỗi từ bàn phím
s = input("Nhập chuỗi: ")
# Tính số chữ số xuất hiện trong chuỗi
count = 0
for char in s:
if char.isdigit():
count += 1
# In số chữ số xuất hiện trong chuỗi
print("Số chữ số xuất hiện trong chuỗi là:", count)
Viết chương trình nhập xâu S từ bàn phím. Đếm các kí tự không phải là chữ in thường và không phải là dấu chấm có trong S rồi đưa kết quả ra màn hình.
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
int main()
{
getline(cin,st);
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if ((97<=st[i] && st[i]<=122) and (st[i]!=".")) dem++;
cout<<dem;
return 0;
}
b1: nhập 1 dãy a từ bàn phím . tính tổng các giá trj của dãy a.
b2 : cho 2 xâu s1 và s2, viết đoạn chương trình chèn xâu s1 vào giữa s2, tại vị trí len(s2)\\2. in kết quả ra màn hình
b3: cho xâu s, viết đoạn lệnh trích ra xâu con của s bao gồm 3 ks tự đầu tiên của s
b4 ; viết chương trình kiểm tra xâu s có chứa chữ số không. thông báo " s có chứa chữ số" hoặc " s kh chứa chữ số nào "
help me, ty 3>